home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / utilities / disk / qformat.lha / install < prev    next >
Encoding:
Text File  |  1994-04-07  |  2.9 KB  |  119 lines
  1. ; $VER: FileX install script 1.1 (14.10.93)
  2.  
  3. ; language dependent definitions
  4.  
  5. (if (= @language "Italiano")
  6.     (
  7.         (set deflang 1)
  8.         (set txt_badkick "Richiest Kickstart 37.175 (OS 2.04)!")
  9.         (set txt_askdir (cat "In quale directory vuoi installare " @app-name " ?"))
  10.         (set txt_dirhelp
  11.             (cat
  12.                  " Seleziona la directory dove " @app-name " e tutti i files"
  13.                  " e directory devono essere installati."
  14.             )
  15.         )
  16.         (set txt_language "Spiacente,non ci sono altre lingue disponibili forsa in fututo...")
  17.         (set txt_langhelp
  18.             (cat
  19.                  " La documentazione su " @app-name " è disponibile in inglese e italiano"
  20.                  " così puoi selezionare la lingua desiderata."
  21.                  " Se stai usando OS 2.1 (o migliore) in futuro potrai scegliere altre"
  22.                  " lingue e l'appropriato catalogo dei files verrà copiato nel SYS:Catalogs"
  23.             )
  24.         )
  25.         (set txt_english "Englisch")
  26.         (set txt_tooltype
  27.             (cat
  28.                 "Desideri usare altre lingue in futuro pre "@app-name"?"
  29.             )
  30.         )
  31.         (set txt_tthelp
  32.             (cat
  33.                 " A questo punto lo script di installazione aggiungerà il"
  34.                 " ToolType, LANGUAGE=Italiano così potrai modificare"
  35.                 " la lingua in futuro."
  36.             )
  37.         )
  38.     )
  39.     (
  40.         (set deflang 2)
  41.         (set txt_badkick "Kickstart 37.175 (OS 2.04) required!")
  42.         (set txt_askdir (cat "In what directory do you want " @app-name " to be installed?"))
  43.         (set txt_dirhelp
  44.             (cat
  45.                  "Select the directory where " @app-name " and all requried"
  46.                  " files and subdirectories shall be located."
  47.             )
  48.         )
  49.         (set txt_language "Sorry! But no athers languages are avaiable perhaps in the future...")
  50.         (set txt_langhelp
  51.             (cat
  52.                  "The documentation for " @app-name " is available in English"
  53.                  " and in Italian, and you may now select wich language(s) you"
  54.                  " want to install.\n\nIf you're using OS 2.1 (or better), the"
  55.                  " appropriate catalog files will be copied aswell to label all"
  56.                  " gadgets in the desired language."
  57.             )
  58.         )
  59.         (set txt_english "English")
  60.         (set txt_tooltype
  61.             (cat
  62.                 "Do you want to use English as the default language when using "
  63.                 @app-name " in the future?"
  64.             )
  65.         )
  66.         (set txt_tthelp
  67.             (cat
  68.                 "At this point the installation script wants to add the"
  69.                 " ToolType entry LANGUAGE=english. You may modify this"
  70.                 " entry later if you wish."
  71.             )
  72.         )
  73.     )
  74. )
  75.  
  76. (if (< (/ (getversion "intuition.library" (resident)) 65536) 37)
  77.     (
  78.         (message txt_badkick)
  79.         (exit)
  80.     )
  81. )
  82.  
  83. ; get the destination directory
  84. (set quickformatdir
  85.     (askdir
  86.         (prompt txt_askdir)
  87.         (help txt_dirhelp)
  88.         (newpath)
  89.         (default "DH0:QuickFormat")
  90.     )
  91. )
  92.  
  93. ; ask which version to install and copy executable
  94.  
  95. (copyfiles
  96.     (source "QuickFormat")
  97.     (dest quickformatdir)
  98.         (infos)
  99. )
  100.  
  101. (copyfiles
  102.         (source "QFormat.confg")
  103.         (dest "SYS:S")
  104. )
  105.  
  106. (cat txt_language)
  107. (cat txtlanghelp)
  108.  
  109. (tooltype
  110.     (prompt txt_tooltype)
  111.     (help txt_tthelp)
  112.     (dest "QuickFormat")
  113.     (settooltype "LANGUAGE" "Italiano")
  114. )
  115.  
  116. (set @default-dest quickformatdir)
  117.  
  118. ; end of script
  119.